home *** CD-ROM | disk | FTP | other *** search
/ Digitální fotografie a video / Digitalni-fotografie-a-video-covermount.bin / Aplikace / Servis / Katalog / Ma / Menu.dxr / 00022_Pohyb kamene.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  2.2 KB  |  70 lines
  1. property i_kamen, j_kamen, i_obr, j_obr, Pohyb, Pozice
  2. global i_volne, j_volne, Micham, X_ova, Y_ova
  3.  
  4. on getPropertyDescriptionList
  5.   set description to [:]
  6.   addProp(description, #i_obr, [#comment: "i_obr:", #format: #integer, #default: EMPTY])
  7.   addProp(description, #j_obr, [#comment: "j_obr:", #format: #integer, #default: EMPTY])
  8.   addProp(description, #Pozice, [#comment: "Pozice", #format: #integer, #default: EMPTY])
  9.   return description
  10. end
  11.  
  12. on getBehaviorDescription
  13.   return "N├íjezd a klik"
  14. end
  15.  
  16. on beginSprite me
  17.   set i_kamen to getAt(X_ova, Pozice)
  18.   set j_kamen to getAt(Y_ova, Pozice)
  19.   set the locH of sprite the spriteNum of me to 167 + ((j_kamen - 1) * 136)
  20.   set the locV of sprite the spriteNum of me to 104 + ((i_kamen - 1) * 136)
  21.   set the locH of sprite (the spriteNum of me + 1) to 167 - 31 + ((j_kamen - 1) * 136)
  22.   set the locV of sprite (the spriteNum of me + 1) to 104 - 31 + ((i_kamen - 1) * 136)
  23.   updateStage()
  24. end
  25.  
  26. on mouseEnter me
  27. end
  28.  
  29. on mouseWithin me
  30.   if not Micham then
  31.     if (i_volne <> i_kamen) and (j_volne <> j_kamen) then
  32.       set the cursor of sprite the spriteNum of me to -1
  33.       set Pohyb to 0
  34.     end if
  35.     if i_volne = i_kamen then
  36.       if j_kamen = (j_volne + 1) then
  37.         set the cursor of sprite the spriteNum of me to [member "kurzor_vlevo_1", member "kurzor_vlevo_2"]
  38.         set Pohyb to 1
  39.       end if
  40.       if j_kamen = (j_volne - 1) then
  41.         set the cursor of sprite the spriteNum of me to [member "kurzor_vpravo_1", member "kurzor_vpravo_2"]
  42.         set Pohyb to 2
  43.       end if
  44.     end if
  45.     if j_volne = j_kamen then
  46.       if i_kamen = (i_volne + 1) then
  47.         set the cursor of sprite the spriteNum of me to [member "kurzor_nahoru_1", member "kurzor_nahoru_2"]
  48.         set Pohyb to 3
  49.       end if
  50.       if i_kamen = (i_volne - 1) then
  51.         set the cursor of sprite the spriteNum of me to [member "kurzor_dolu_1", member "kurzor_dolu_2"]
  52.         set Pohyb to 4
  53.       end if
  54.     end if
  55.   end if
  56. end
  57.  
  58. on mouseLeave me
  59.   set the cursor of sprite the spriteNum of me to -1
  60.   set Pohyb to 0
  61. end
  62.  
  63. on mouseUp me
  64.   if not Micham then
  65.     Pohyb_kamenu(the spriteNum of me, Pohyb, 9, 15)
  66.     set the cursor of sprite the spriteNum of me to -1
  67.     set Pohyb to 0
  68.   end if
  69. end
  70.